/*
 * Licensed to the Apache Software Foundation (ASF) under one or more
 * contributor license agreements.  See the NOTICE file distributed with
 * this work for additional information regarding copyright ownership.
 * The ASF licenses this file to You under the Apache License, Version 2.0
 * (the "License"); you may not use this file except in compliance with
 * the License.  You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
package org.apache.camel.component.jpa;

import java.util.ArrayList;
import java.util.Collection;
import java.util.Map;

import jakarta.persistence.EntityManager;
import jakarta.persistence.EntityManagerFactory;
import jakarta.persistence.NoResultException;
import jakarta.persistence.Query;

import org.apache.camel.Exchange;
import org.apache.camel.Expression;
import org.apache.camel.Message;
import org.apache.camel.spi.Language;
import org.apache.camel.support.DefaultProducer;
import org.apache.camel.support.ExchangeHelper;
import org.slf4j.Logger;
import org.slf4j.LoggerFactory;

import static org.apache.camel.component.jpa.JpaHelper.getTargetEntityManager;

public class JpaProducer extends DefaultProducer {

    private static final Logger LOG = LoggerFactory.getLogger(JpaProducer.class);

    /* prefix for marking property in outputTarget */
    private static final String PROPERTY_PREFIX = "property:";

    private Language simple;

    private final EntityManagerFactory entityManagerFactory;
    private final TransactionStrategy transactionStrategy;
    private final Expression expression;
    private String query;
    private String namedQuery;
    private String nativeQuery;
    private boolean findEntity;
    private Map<String, Object> parameters;
    private Class<?> resultClass;
    private QueryFactory queryFactory;
    private Boolean useExecuteUpdate;

    public JpaProducer(JpaEndpoint endpoint, Expression expression) {
        super(endpoint);
        this.expression = expression;
        this.entityManagerFactory = endpoint.getEntityManagerFactory();
        this.transactionStrategy = endpoint.getTransactionStrategy();
    }

    @Override
    public JpaEndpoint getEndpoint() {
        return (JpaEndpoint) super.getEndpoint();
    }

    public QueryFactory getQueryFactory() {
        if (queryFactory == null) {
            if (query != null) {
                queryFactory = QueryBuilder.query(query);
            } else if (namedQuery != null) {
                queryFactory = QueryBuilder.namedQuery(namedQuery);
            } else if (nativeQuery != null) {
                if (resultClass != null) {
                    queryFactory = QueryBuilder.nativeQuery(nativeQuery, resultClass);
                } else {
                    queryFactory = QueryBuilder.nativeQuery(nativeQuery);
                }
            }
        }
        return queryFactory;
    }

    public void setQueryFactory(QueryFactory queryFactory) {
        this.queryFactory = queryFactory;
    }

    public void setParameters(Map<String, Object> params) {
        this.parameters = params;
    }

    public Map<String, Object> getParameters() {
        return parameters;
    }

    public String getNamedQuery() {
        return namedQuery;
    }

    public void setNamedQuery(String namedQuery) {
        this.namedQuery = namedQuery;
    }

    public String getNativeQuery() {
        return nativeQuery;
    }

    public void setNativeQuery(String nativeQuery) {
        this.nativeQuery = nativeQuery;
    }

    public String getQuery() {
        return query;
    }

    public void setQuery(String query) {
        this.query = query;
    }

    public boolean isFindEntity() {
        return findEntity;
    }

    public void setFindEntity(boolean findEntity) {
        this.findEntity = findEntity;
    }

    public Class<?> getResultClass() {
        return resultClass;
    }

    public void setResultClass(Class<?> resultClass) {
        this.resultClass = resultClass;
    }

    public void setUseExecuteUpdate(Boolean executeUpdate) {
        this.useExecuteUpdate = executeUpdate;
    }

    public boolean isUseExecuteUpdate() {
        if (useExecuteUpdate == null) {
            if (query != null) {
                if (query.regionMatches(true, 0, "select", 0, 6)) {
                    useExecuteUpdate = false;
                } else {
                    useExecuteUpdate = true;
                }
            } else if (nativeQuery != null) {
                if (nativeQuery.regionMatches(true, 0, "select", 0, 6)) {
                    useExecuteUpdate = false;
                } else {
                    useExecuteUpdate = true;
                }
            } else {
                useExecuteUpdate = false;
            }
        }
        return useExecuteUpdate;
    }

    @Override
    public void process(final Exchange exchange) {
        // resolve the entity manager before evaluating the expression
        final EntityManager entityManager = getTargetEntityManager(exchange, entityManagerFactory,
                getEndpoint().isUsePassedInEntityManager(), getEndpoint().isSharedEntityManager(), true);

        if (findEntity) {
            processFind(exchange, entityManager);
        } else if (getQueryFactory() != null) {
            processQuery(exchange, entityManager);
        } else {
            processEntity(exchange, entityManager);
        }
    }

    protected void processQuery(Exchange exchange, EntityManager entityManager) {
        Query innerQuery = getQueryFactory().createQuery(entityManager);
        configureParameters(innerQuery, exchange);

        transactionStrategy.executeInTransaction(new QueryProcessor(entityManager, innerQuery, exchange));
    }

    @SuppressWarnings("unchecked")
    private void configureParameters(Query query, Exchange exchange) {
        final int maxResults = exchange.getIn().getHeader(
                JpaConstants.JPA_MAXIMUM_RESULTS,
                getEndpoint().getMaximumResults(),
                Integer.class);
        if (maxResults > 0) {
            query.setMaxResults(maxResults);
        }
        final int firstResult = exchange.getIn().getHeader(
                JpaConstants.JPA_FIRST_RESULT,
                getEndpoint().getFirstResult(),
                Integer.class);
        if (firstResult > 0) {
            query.setFirstResult(firstResult);
        }
        // setup the parameters
        Map<String, ?> params;
        if (parameters != null) {
            params = parameters;
        } else {
            params = exchange.getIn().getHeader(JpaConstants.JPA_PARAMETERS_HEADER, Map.class);
        }
        if (params != null) {
            params.forEach((key, value) -> {
                Object resolvedValue = value;
                if (value instanceof String) {
                    resolvedValue = simple.createExpression((String) value).evaluate(exchange, Object.class);
                }
                query.setParameter(key, resolvedValue);
            });
        }
    }

    protected void processFind(Exchange exchange, EntityManager entityManager) {
        final Object key = exchange.getMessage().getBody();

        if (key != null) {
            transactionStrategy.executeInTransaction(new FindProcessor(entityManager, key, exchange));
        }
    }

    protected void processEntity(Exchange exchange, EntityManager entityManager) {
        final Object values = expression.evaluate(exchange, Object.class);

        if (values != null) {
            transactionStrategy.executeInTransaction(new EntityProcessor(entityManager, values, exchange));
        }
    }

    private static void putAnswer(final Exchange exchange, final Object answer, final String outputTarget) {
        if (outputTarget == null || outputTarget.isBlank()) {
            getTargetMessage(exchange).setBody(answer);
        } else if (outputTarget.startsWith(PROPERTY_PREFIX)) {
            exchange.setProperty(outputTarget.substring(PROPERTY_PREFIX.length()), answer);
        } else {
            getTargetMessage(exchange).setHeader(outputTarget, answer);
        }
    }

    private static Message getTargetMessage(Exchange exchange) {
        final Message target;
        if (ExchangeHelper.isOutCapable(exchange)) {
            target = exchange.getMessage();
            // preserve headers
            target.getHeaders().putAll(exchange.getIn().getHeaders());
        } else {
            target = exchange.getIn();
        }
        return target;
    }

    @Override
    protected void doBuild() throws Exception {
        simple = getEndpoint().getCamelContext().resolveLanguage("simple");
    }

    private class EntityProcessor implements Runnable {
        private final EntityManager entityManager;
        private final Object values;
        private final Exchange exchange;

        public EntityProcessor(EntityManager entityManager, Object values, Exchange exchange) {
            this.entityManager = entityManager;
            this.values = values;
            this.exchange = exchange;
        }

        @Override
        public void run() {
            if (getEndpoint().isJoinTransaction()) {
                entityManager.joinTransaction();
            }

            if (values.getClass().isArray()) {
                processArray();
            } else if (values instanceof Collection) {
                processCollection();
            } else {
                processOther();
            }

            if (getEndpoint().isFlushOnSend()) {
                entityManager.flush();
            }
        }

        private void processOther() {
            Object managedEntity;
            if (!getEndpoint().isRemove()) {
                managedEntity = save(values);
            } else {
                managedEntity = remove(values);
            }
            if (!getEndpoint().isUsePersist()) {
                exchange.getIn().setBody(managedEntity);
            }
        }

        private void processCollection() {
            Collection<?> collection = (Collection<?>) values;
            // need to create a list to store returned values as they can be updated
            // by JPA such as setting auto assigned ids
            Collection<Object> managedCollection = new ArrayList<>(collection.size());
            Object managedEntity;
            for (Object entity : collection) {
                if (!getEndpoint().isRemove()) {
                    managedEntity = save(entity);
                } else {
                    managedEntity = remove(entity);
                }
                managedCollection.add(managedEntity);
            }
            if (!getEndpoint().isUsePersist()) {
                exchange.getIn().setBody(managedCollection);
            }
        }

        private void processArray() {
            Object[] array = (Object[]) values;
            // need to create an array to store returned values as they can be updated
            // by JPA such as setting auto assigned ids
            Object[] managedArray = new Object[array.length];
            Object managedEntity;
            for (int i = 0; i < array.length; i++) {
                Object element = array[i];
                if (!getEndpoint().isRemove()) {
                    managedEntity = save(element);
                } else {
                    managedEntity = remove(element);
                }
                managedArray[i] = managedEntity;
            }
            if (!getEndpoint().isUsePersist()) {
                // and copy back to original array
                System.arraycopy(managedArray, 0, array, 0, array.length);
                exchange.getIn().setBody(array);
            }
        }

        /**
         * Save the given entity and return the managed entity
         *
         * @return the managed entity
         */
        private Object save(final Object entity) {
            LOG.debug("save: {}", entity);
            if (getEndpoint().isUsePersist()) {
                entityManager.persist(entity);
                return entity;
            } else {
                return entityManager.merge(entity);
            }
        }

        /**
         * Remove the given entity and return the managed entity
         *
         * @return the managed entity
         */
        private Object remove(final Object entity) {
            LOG.debug("remove: {}", entity);

            Object managedEntity;

            // First check if entity is attached to the persistence context
            if (entityManager.contains(entity)) {
                managedEntity = entity;
            } else {
                // If not, merge entity state into context before removing it
                managedEntity = entityManager.merge(entity);
            }

            entityManager.remove(managedEntity);
            return managedEntity;
        }
    }

    private class QueryProcessor implements Runnable {
        private final EntityManager entityManager;
        private final Query innerQuery;
        private final Exchange exchange;

        public QueryProcessor(EntityManager entityManager, Query innerQuery, Exchange exchange) {
            this.entityManager = entityManager;
            this.innerQuery = innerQuery;
            this.exchange = exchange;
        }

        @Override
        public void run() {
            if (JpaProducer.this.getEndpoint().isJoinTransaction()) {
                entityManager.joinTransaction();
            }

            final Object answer;
            if (JpaProducer.this.isUseExecuteUpdate()) {
                answer = innerQuery.executeUpdate();
            } else if (JpaProducer.this.getEndpoint().isSingleResult()) {
                answer = innerQuery.getSingleResult();
            } else {
                answer = innerQuery.getResultList();
            }

            putAnswer(exchange, answer, JpaProducer.this.getEndpoint().getOutputTarget());

            if (JpaProducer.this.getEndpoint().isFlushOnSend()) {
                entityManager.flush();
            }
        }
    }

    private class FindProcessor implements Runnable {
        private final EntityManager entityManager;
        private final Object key;
        private final Exchange exchange;

        public FindProcessor(EntityManager entityManager, Object key, Exchange exchange) {
            this.entityManager = entityManager;
            this.key = key;
            this.exchange = exchange;
        }

        @Override
        public void run() {
            if (JpaProducer.this.getEndpoint().isJoinTransaction()) {
                entityManager.joinTransaction();
            }

            Object answer = entityManager.find(JpaProducer.this.getEndpoint().getEntityType(), key);
            LOG.debug("Find: {} -> {}", key, answer);

            if (JpaProducer.this.getEndpoint().isSingleResult() && answer == null) {
                throw new NoResultException(
                        String.format(
                                "No results for key %s and singleResult requested",
                                key));
            }

            putAnswer(exchange, answer, JpaProducer.this.getEndpoint().getOutputTarget());

            if (JpaProducer.this.getEndpoint().isFlushOnSend()) {
                entityManager.flush();
            }
        }
    }
}
